      INTEGER X,Y
      INTEGER TEXT(61)
      DIMENSION LIST(80),MWORD(11),KODE(10,80)
      DIMENSION NTRY(10),INREA (10)
      DATA IBANK/Z4040/
      DATA X,Y /2,3/
    1 DO 5 I=1,10
      READ(X,905)L,(KODE(I,J),J=1,79)
      IF(L-I+1)3,5,3
    3 WRITE(Y,902)
    6 CALL EXIT
    5 CONTINUE
    2 READ(X,901)N,INREA  ,TEXT
      IPAGE=1
      IF(N)6,6,9
    9 WRITE(Y,906)TEXT,IPAGE
      WRITE(Y,903)(INREA (I),I=1,N)
      LINES =0
      NPLUS=N+1
      DO 11 I=1,N
   11 MWORD(I)=IBANK
      MWORD(NPLUS)=IBANK
      LAST=NPLUS*(81/NPLUS)
      ND=0
      GO TO 22
   12 ND=ND+1
      NTRY(ND)=0
   13 IN=INREA (ND)+1
   14 NCODE=NTRY(ND)+1
      NTRY(ND)=NCODE
      LETT R=KODE(IN,NCODE)
      IF(LETT R-IBANK ) 17,15,17
   15 ND=ND-1
      IF(ND)20,20,13
   17 MWORD(ND)=LETT R
  175 IF(ND-N)12,18,18
   18 DO 19 I=1,NPLUS
      KOUNT=KOUNT+1
   19 LIST(KOUNT)=MWORD(I)
      IF(KOUNT-LAST)14,20,20
   20 WRITE(Y,904)LIST
      LINES = LINES + 1
      IF(LINES-45)801,802,802
  802 IPAGE=IPAGE+1
      LINES=0
      WRITE(Y,906)TEXT,IPAGE
      WRITE(Y,903)(INREA (I),I=1,N)
  801 CONTINUE
      IF ( ND ) 2,2,22
   22 DO 23 I=1,80
   23 LIST(I) = IBANK
      KOUNT=0
      IF(ND)12,12,14
  901 FORMAT(11I1,T20,61A1)
  902 FORMAT('1 CODE CARDS OUT OF ORDER')
  903 FORMAT('0',T30,'TELEPHONE NUMBER '10I1/)
  904 FORMAT(' '80A1)
  905 FORMAT(I1,79A1)
  906 FORMAT('1' T05,61A1, T70,'PAGE ' I2/)
      END
00
11
2ABC
3DEF
4GHI
5JKL
6MNO
7PRS
8TUV
9WXY
    